home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_dps2.ps < prev    next >
Text File  |  1997-09-05  |  7KB  |  204 lines
  1. %    Copyright (C) 1990, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for basic Display PostScript functions
  19. % that are also included in Level 2.
  20.  
  21. level2dict begin
  22.  
  23. % ------ Halftones ------ %
  24.  
  25. /.makestackdict
  26.     { { counttomark -1 roll } forall .dicttomark
  27.     } bind def
  28. /currenthalftone        % - currenthalftone <dict>
  29.     { mark .currenthalftone
  30.        { { exch pop }        % halftone
  31.          { /HalftoneType 1        % screen
  32.         { /Frequency /Angle /SpotFunction }
  33.            .makestackdict
  34.          }
  35.          { /HalftoneType 2        % colorscreen
  36.         { /RedFrequency /RedAngle /RedSpotFunction
  37.           /GreenFrequency /GreenAngle /GreenSpotFunction
  38.           /BlueFrequency /BlueAngle /BlueSpotFunction
  39.           /GrayFrequency /GrayAngle /GraySpotFunction
  40.         }
  41.            .makestackdict
  42.          }
  43.        }
  44.       exch get exec
  45.     } odef
  46. % Define sethalftone so it converts all other types to type 5.
  47. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  48.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  49.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  50.        {        % stack: v0 v1 v2 type keys comp
  51.          mark
  52.          2 index 0 get 8 -1 roll
  53.          4 index 1 get 9 -1 roll
  54.          6 index 2 get 10 -1 roll
  55.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  56.          /HalftoneType 10 index .dicttomark
  57.          counttomark 2 roll
  58.        }
  59.       forall pop pop
  60.       /Default 1 index .dicttomark .sethalftone5
  61.     } bind def
  62. /sethalftone {        % <dict> sethalftone -
  63.         % We must create the new dictionary in the same VM as the
  64.         % operand; otherwise, invalidaccess errors may occur.
  65.     .currentglobal 1 index dup gcheck .setglobal
  66.     dup /HalftoneType get 1 sub {
  67.           { mark /Default 2 index .dicttomark .sethalftone5
  68.           }
  69.           { 1 { /Frequency /Angle /SpotFunction }
  70.         { /RedFrequency /RedAngle /RedSpotFunction
  71.           /GreenFrequency /GreenAngle /GreenSpotFunction
  72.           /BlueFrequency /BlueAngle /BlueSpotFunction
  73.           /GrayFrequency /GrayAngle /GraySpotFunction
  74.         } .sethalftoneRGBV
  75.           }
  76.           { mark /Default 2 index .dicttomark .sethalftone5
  77.           }
  78.           { 3 { /Width /Height /Thresholds }
  79.         { /RedWidth /RedHeight /RedThresholds
  80.           /GreenWidth /GreenHeight /GreenThresholds
  81.           /BlueWidth /BlueHeight /BlueThresholds
  82.           /GrayWidth /GrayHeight /GrayThresholds
  83.         } .sethalftoneRGBV
  84.           }
  85.           { dup .sethalftone5
  86.           }
  87.     } exch get exec .setglobal pop
  88. } odef
  89. % Redefine setscreen and setcolorscreen to recognize halftone dictionaries,
  90. % and to insert the Frequency and Angle into Type 1 halftones, per
  91. % Adobe TN 5085.
  92. /.fixsethalftonescreen        % <freq> <angle> <dict> .fix...screen
  93.                 %   <freq> <angle> <dict> <dict'>
  94.  { dup dup /HalftoneType get 1 eq
  95.     { dup wcheck not { dup length .copydict } if
  96.       dup /Frequency 5 index put
  97.       dup /Angle 4 index put
  98.     }
  99.    if
  100.  } bind def
  101. /setscreen        % <ignore*2> <dict> setscreen -
  102.     { dup type /dicttype eq
  103.        { .fixsethalftonescreen sethalftone pop pop pop }
  104.        { //setscreen }
  105.       ifelse
  106.     } odef
  107. /setcolorscreen        % <ignore*11> <dict> setcolorscreen -
  108.     { dup type /dicttype eq
  109.        { .fixsethalftonescreen sethalftone 12 { pop } repeat }
  110.        { //setcolorscreen }
  111.       ifelse
  112.     } odef
  113. % Redefine currentscreen and currentcolorscreen to extract the Frequency
  114. % and Angle from Type 1 halftones, per Adobe TN 5085.
  115. /.fixcurrenthalftonescreen    % <dict> .fix... <freq> <angle> <proc>
  116.  { dup /HalftoneType get 1 eq
  117.     { dup /Frequency get 1 index /Angle get }
  118.     { 60 0 }
  119.    ifelse 3 2 roll
  120.  } bind def
  121. /currentscreen        % - currentscreen 60 0 <dict>
  122.     { .currenthalftone
  123.        { { .fixcurrenthalftonescreen }    % halftone
  124.          { }                % screen
  125.          { 12 3 roll 9 { pop } repeat    % colorscreen
  126.            dup type /dicttype eq { .fixcurrenthalftonescreen } if
  127.          }
  128.        }
  129.       exch get exec
  130.     } odef
  131. /currentcolorscreen    % - currentcolorscreen (60 0 <dict>)*4
  132.     { .currenthalftone
  133.        { { .fixcurrenthalftonescreen 3 copy 6 copy }    % halftone
  134.          { 3 copy 6 copy }            % screen
  135.          { }                % colorscreen
  136.        }
  137.       exch get exec
  138.     } odef
  139.  
  140. % ------ User objects ------ %
  141.  
  142. /.localarray where {
  143.   pop
  144. } {
  145.   /.localarray {
  146.     currentglobal false setglobal
  147.     exch array exch setglobal
  148.   } bind def
  149. } ifelse
  150. % The name UserObjects may be rebound, but we need to make sure these
  151. % operators always refer to the binding in userdict (which may also be
  152. % rebound!).
  153. /.UserObjects {
  154.   //systemdict /userdict get /UserObjects
  155. } odef
  156. % In order to get proper error recovery behavior, we need to be careful
  157. % not to pop any operands from the stack until we're done.
  158. % The code below faithfully duplicates the apparent array-growing
  159. % behavior of Adobe interpreters.
  160. /defineuserobject {        % <index> <value> defineuserobject -
  161.   .UserObjects .knownget {
  162.     length dup 3 index le {
  163.         % Stack: index value len
  164.       2 index eq { 1 index 2 mul } { 1 index 1 add } ifelse
  165.       .localarray userdict /UserObjects get
  166.       1 index copy pop
  167.       .UserObjects 3 -1 roll put
  168.     } {
  169.       pop
  170.     } ifelse
  171.   } {
  172.     .UserObjects 3 index 1 add 10 .max .localarray put
  173.   } ifelse
  174.   .UserObjects get 2 index 2 index put pop pop
  175. } odef
  176. /execuserobject {        % <index> execuserobject -
  177.   .UserObjects get 1 index get exch pop exec
  178. } odef
  179. /undefineuserobject {        % <index> undefineuserobject -
  180.   .UserObjects get 1 index null put pop
  181. } odef
  182.  
  183. % ------ User paths ------ %
  184.  
  185. /upath {            % <bool> upath <array>
  186.     [ 1 index {/ucache cvx} if
  187.     true .pathbbox /setbbox cvx
  188.      {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  189.     pathforall ] cvx exch pop
  190. } odef
  191.  
  192. % Dummy definitions for cache control operators
  193.  
  194. /ucachestatus {            % - ucachestatus -mark- ? ? ? ? <size>
  195.     mark 0 0 0 0 userdict /.ucachesize .knownget not { 0 } if
  196. } odef
  197. /setucacheparams {        % -mark- ... <size> setucacheparams -
  198.         % Provoke an appropriate error if needed.
  199.     counttomark 1 lt { () 0 get } if
  200.     0 or userdict /.ucachesize 2 index 0 .max put cleartomark
  201. } odef
  202.  
  203. end                % level2dict
  204.